home *** CD-ROM | disk | FTP | other *** search
/ GFX Sensations 1 / Graphic Sensations - Volume 1.iso / tools / amiga / editors / tsmorph.lha / rexx / FadeToBlack.TSM < prev    next >
Encoding:
Text File  |  1993-06-13  |  1020 b   |  41 lines
  1. /* example Prescript script file for TSMorph */
  2. /* This example is a simple Warp which fades to black */
  3. /* $VER: FadeToBlack_TSM 2.0 (13.6.93)
  4.  */
  5. parse arg Base
  6. Frame       = 0
  7. TotalFrames = 1
  8. Single      = 2
  9. Movement    = 3
  10. Red1        = 4
  11. Green1      = 5
  12. Blue1       = 6
  13. Red2        = 7
  14. Green2      = 8
  15. Blue2       = 9
  16. Produce     = 10
  17. RPlus       = 11
  18. GPlus       = 12
  19. BPlus       = 13
  20. RMinus      = 14
  21. GMinus      = 15
  22. BMinus      = 16
  23. DX          = 17
  24. DY          = 18
  25. Start       = 19
  26.  
  27. call StoreValue(Base,RMinus,TRUNC(GetValue(Base,Frame)*255/GetValue(Base,TotalFrames)));
  28. call StoreValue(Base,GMinus,TRUNC(GetValue(Base,Frame)*255/GetValue(Base,TotalFrames)));
  29. call StoreValue(Base,BMinus,TRUNC(GetValue(Base,Frame)*255/GetValue(Base,TotalFrames)));
  30.  
  31. exit
  32.  
  33. GetValue:Procedure
  34.    Parse arg XBase, XAdd
  35.    return C2D(IMPORT(D2C(STRIP(XBase) + (STRIP(Xadd) * 4)),4))
  36.  
  37. StoreValue:Procedure
  38.    Parse arg XBase, XAdd, XVal
  39.    call EXPORT(D2C(STRIP(XBase) + (STRIP(Xadd) * 4)),RIGHT(D2C(XVal),4,D2C(0)),4)
  40.    return
  41.